Het volgende voorbeeld maakt gebruik van code waarin de eigenschap ReferencesEvents is opgenomen, om gebeurtenisverwerkingscode te ondersteunen voor het toevoegen of verwijderen van verwijzingen.
Private WithEvents X As ReferencesEvents
Sub Test()
Set X = Application.VBE.Events.ReferencesEvents
End Sub
Private Sub X_ItemAdded(ByVal Reference As VBIDE.Reference)
' Put code to support item addition here
End Sub
Private Sub X_ItemRemoved(ByVal Reference As VBIDE.Reference)
' Put code to support item removal here
End Sub